home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / examples.arc / EXAMPL47.PRO < prev    next >
Text File  |  1986-10-07  |  308b  |  17 lines
  1. /* Program 47 */
  2. /*
  3.   Goal to be entered is on page 105 of the manual.
  4. */
  5.  
  6. domains
  7.     namelist = name*
  8.     name  = symbol
  9.  
  10. predicates
  11.     string_namelist(string,namelist)
  12.  
  13. clauses
  14.     string_namelist(S,[H|T]):-
  15.         fronttoken(S,H,S1),!,string_namelist(S1,T).
  16.     string_namelist(_,[]).
  17.